home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / xes131.lha / XES / REXX / SavePrefs.xdme < prev    next >
Encoding:
Text File  |  1994-12-23  |  820 b   |  40 lines
  1. /* SavePrefs.xdme */
  2.  
  3. options results
  4. 'rxresult $filename'
  5. outfile = result || ".xsrc"
  6.  
  7. 'rxresult $mode'
  8. mode = result
  9. select
  10.     when mode = "ANSI C / C++" then md = "c-mode"
  11.     when mode = "K&R C" then md = "krc-mode"
  12.     otherwise md = translate(mode,"mopgraft","MOPGRAFT") || "-mode"
  13. end
  14. 'rxresult $indcol'
  15. i = result
  16. 'rxresult $parcol'
  17. p = result
  18. 'rxresult $margin'
  19. m = result
  20. line = md "setindcol" i "setparcol" p "margin" m
  21. call open(output, outfile, "W")
  22. call writeln(output, line)
  23. vars = "_f0 _f1 _ff _h0 _h1 _hf _l _r _t _b _p _N _Tl"
  24. do i = 1 to words(vars)
  25.     call writevar(word(vars,i))
  26. end
  27. call close(output)
  28.  
  29. exit
  30.  
  31. WriteVar:
  32.     parse arg v
  33.     xcom = "rxresult $" || v
  34.     xcom
  35.     x = result
  36.     if x = "RESULT" then x = ""
  37.     line = "settvar" v "(" || x || ")"
  38.     call writeln(output, line)
  39. return
  40.